10 BORDER NOT PI:PAPER NOT PI:INK NOT PI:
20 CLEAR VAL "24199"
30 LET D=VAL"25000"
40 LET E=D+2
45 LOAD""SCREEN$
50 POKE VAL"23739",CODE"o"
60 LOAD""CODE
70 LOAD""CODE
80 POKE D,VAL"1"
90 RANDOMIZE USR E
100 LOAD""CODE
110 POKE D,VAL"3"
120 RANDOMIZE USR E
130 LOAD""CODE
140 RANDOMIZE USR VAL"24200"
150 REM UNA_PASHOSHA